﻿Public Class NumericInputBoxErrorArguments
   Inherits System.EventArgs

   Public Sub New(ByVal errormessage As String, ByVal ErrType As ErrorType)
      Me._ErrorMessage = errormessage
      Me._ErrType = ErrType
   End Sub

   Private _ErrorMessage As String
   Public ReadOnly Property ErrorMesage() As String
      Get
         Return _ErrorMessage
      End Get

   End Property 'ErrorMesage

   Private _ErrType As ErrorType
   Public ReadOnly Property ErrType() As ErrorType
      Get
         Return _ErrType
      End Get
   End Property 'ErrType

   Public Enum ErrorType
      InvalidInputFormat
      ValueLessThanMin
      ValueGreaterThanMax
      ValueOutOfRangeForType
      UnknownException
   End Enum
End Class
